--
-- $Id: xpa-lists-double.adb,v 1.2 2005-06-14 15:46:26 bacon Exp $
--

with ada.text_io;

package body Xpa.Lists.Double is

	procedure Initialize (object: in out List) is
	begin
		null;
	end Initialize;

	procedure Adjust (objecT: in out List) is
	begin
		null;
	end Adjust;

	procedure Finalize (object: in out List) is
	begin
		Clear (object);
	end Finalize;

	procedure Clear (object: in out List) is
	begin
		ada.text_io.put_line ("list.clear");
	end Clear;

end Xpa.Lists.Double;
